home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / demos / ftl / demo2.dht < prev    next >
Encoding:
Text File  |  1995-09-07  |  9.4 KB  |  200 lines
  1. <IMG "FTLLOGO.BMP">
  2.  
  3. Welcome to the FTL 2.1 Demo!
  4.  
  5. This file explains the features of the FTL 2.1 Hypertext/ Hypermedia components
  6.  
  7. <IMG "DELLOGO.BMP">   <IMG "S_CIUPKC.BMP">
  8.  
  9. for Borland Delphi from C.I.U.P.K.C. Software.
  10.  
  11. <IMG "HLINE.BMP">
  12.  
  13. HTDisplayBox Component
  14.  
  15. This component supports display of effectively unlimited levels of
  16. hypertext and hypermedia. It has the following Interface declaration:
  17.  
  18.   THTDisplayBox = class( TScrollBox )
  19.     private
  20.     { private data and methods }
  21.       FOnAssertShowCoolLine : TStringEvent;
  22.       FOnAssertShowHotLine  : TStringEvent;
  23.       FOnAssertShowCoolImage : TImageEvent;
  24.       FOnAssertShowHotImage : TImageEvent;
  25.       FOnHandleShowCoolLine : TStringEvent;
  26.       FOnHandleShowHotLine : TStringEvent;
  27.       FOnHandleShowCoolImage : TImageEvent;
  28.       FOnHandleShowHotImage : TImageEvent;
  29.       FOnAssertShowMatchFound : TMatchEvent;
  30.       FOnHandleShowMatchFound : TMatchEvent;
  31.       FOnCurrentCoolClick : TMouseEvent;
  32.       FOnCurrentHotClick : TMouseEvent;
  33.       FOnAssertLocalJump : TStringEvent;
  34.       FOnHandleLocalJump : TStringEvent;
  35.       FOnAssertPlayWaveFile : TStringEvent;
  36.       FOnAssertPlayAVIFile : TStringEvent;
  37.       FOnAssertPlayMidiFile : TStringEvent;
  38.       FOnAssertNewHTFile : TStringEvent;
  39.       FOnHandlePlayWaveFile : TStringEvent;
  40.       FOnHandlePlayAVIFile: TStringEvent;
  41.       FOnHandlePlayMidiFile: TStringEvent;
  42.       FOnHandleNewHTFile : TStringEvent;
  43.       FCoolFont : TFont;
  44.       FHotFont : TFont;
  45.       DoHistory : Boolean;
  46.       MaxHistory : Integer;
  47.       FShowToolBar : Boolean;
  48.     public
  49.     { public data and methods }
  50.       MyID : integer;
  51.       NeedsBooting : Boolean;
  52.       CumulativePixelCount : Integer;
  53.       TotalHistoryItems : Integer;
  54.       MyMemo : Tmemo;
  55.       CurrentFileName : TFilename;
  56.       TheHistoryList : TStringList;
  57.       CurrentMode : THTDBMode;
  58.       CurrentCoolFontColor : Integer;
  59.       DoHTOnStartup : Boolean;
  60.       CurrentCoolFontName : String;
  61.       CurrentCoolFontSize : Integer;
  62.       CurrentCoolFontStyle : TFontStyles;
  63.       CurrentCoolBGColor : TColor;
  64.       CurrentHotFontColor : Integer;
  65.       CurrentHotFontName : String;
  66.       CurrentHotFontSize : Integer;
  67.       CurrentHotFontStyle : TFontStyles;
  68.       CurrentHotBGColor : TColor;
  69.       CurrentYPosition : Integer;
  70.       CurrentXPosition : Integer;
  71.       PixelsPerLine : Integer;
  72.       CurrentLeftMargin,
  73.       CurrentRightmargin : Integer;
  74.       CurrentHotCursor,
  75.       CurrentCoolCursor : TCursor;
  76.       TheHTParser : THyperTextParser;
  77.       CurrentLineIncrement : Integer;
  78.       CurrentLineSpacing : Integer;
  79.       WrapDisplay : Boolean;
  80.       GlobalREXPFilename : TFileName;
  81.       procedure SetCoolFont( Value : TFont );
  82.       procedure SetHotFont( Value : TFont );
  83.       procedure SetCoolColor( Value : TColor );
  84.       procedure SetHotColor( Value : TColor );
  85.       procedure Flipmode;
  86.       procedure PrintHyperText;
  87.       procedure SetDoHTOnStartup( Value : Boolean );
  88.       constructor Create( AOwner : TComponent ); override;
  89.       function AssertShowCoolLine( var TheCoolLine : String ) : Boolean;
  90.       procedure HandleShowCoolLine( var TheCoolLine : String ); virtual;
  91.       function AssertShowHotLine( var TheHotLine : String; TheHTID : Integer ) : Boolean;
  92.       procedure HandleShowHotLine( var TheHotLine : String; TheHTID : Integer ); virtual;
  93.       function AssertShowCoolImage( TheCoolImage : TImage ) : Boolean;
  94.       procedure HandleShowCoolImage( TheCoolImage : TImage ); virtual;
  95.       function AssertShowHotImage( TheHotImage : TImage; TheHTID : Integer;
  96.                 AnchorTarget : boolean ) : Boolean;
  97.       procedure HandleShowHotImage( TheHotImage : TImage; TheHTID : Integer;
  98.                  AnchorTarget : boolean ); virtual;
  99.       procedure CurrentHotClick( Sender : TObject;
  100.                                  Button: TMouseButton;
  101.                                  Shift: TShiftState;
  102.                                  X, Y: Integer ); virtual;
  103.       procedure CurrentCoolClick( Sender : TObject;
  104.                                   Button: TMouseButton;
  105.                                   Shift: TShiftState;
  106.                                   X, Y: Integer ); virtual;
  107.       function AssertLocalJump( TheLocalID : Integer ): Boolean;
  108.       procedure HandleLocalJump( TheLocalID : Integer ); virtual;
  109.       function AssertPlayWaveFile( TheFileName : String ): Boolean;
  110.       function AssertPlayAVIFile( TheFileName : String ): Boolean;
  111.       function AssertPlayMidiFile( TheFileName : String ): Boolean;
  112.       procedure HandlePlayWaveFile( TheFileName : String ); virtual;
  113.       procedure HandlePlayAVIFile( TheFileName : String ); virtual;
  114.       procedure HandlePlayMidiFile( TheFileName : String ); virtual;
  115.       function AssertNewHTFile( TheFileName : String; AnID : integer ): Boolean;
  116.       procedure HandleNewHTFile( TheFilename : String; CurrentID : integer ); virtual;
  117.       procedure NewHyperTextFile( TheFileName : String ); virtual;
  118.       procedure Initialize;
  119.       procedure Bootstrap;
  120.       procedure SetCurrentLineIncrement( Value : Integer );
  121.     published
  122.       property CoolFont : TFont read FCoolFont
  123.                 write SetCoolFont;
  124.       property HotFont : TFont read FHotFont
  125.                 write SetHotFont;
  126.       property TheCurrentCoolBGColor : TColor read CurrentCoolBGColor
  127.                 write SetCoolCOlor;
  128.       property TheCurrentHotBGColor : TColor read CurrentHotBGColor
  129.                 write SetHotCOlor;
  130.       property HyperTextParser : THyperTextParser read TheHTParser
  131.                 write TheHTParser;
  132.       property TheCurrentLeftMargin : Integer read CurrentLeftmargin
  133.                 write CurrentLeftMargin;
  134.       property TheCurrentRightMargin : Integer read CurrentRightMargin
  135.                 write CurrentRightMargin;
  136.       property TheCurrentHotCursor  : TCursor read CurrentHotCursor
  137.                 write CurrentHotCursor default crHotHand;
  138.       property TheCurrentCoolCursor : TCursor read CurrentCoolCursor
  139.                 write CurrentCoolCursor default crDefault;
  140.       property TheCurrentLineIncrement : Integer read CurrentLineIncrement
  141.                 write CurrentLineIncrement;
  142.       property TheCurrentLineSpacing : Integer read CurrentLineSpacing
  143.                 write CurrentLineSpacing;
  144.       property TheActiveMemo : TMemo read MyMemo write MyMemo;
  145.       property TheCurrentFilename : TFilename read CurrentFileName write CurrentFileName;
  146.       property DisplayMode : THTDBMode read CurrentMode write CurrentMode;
  147.       property LoadHyperTextOnStartup : Boolean read DoHTOnStartup 
  148.                write SetDoHTOnStartup default false;
  149.       property UseHistoryList : Boolean read DoHistory write DoHistory;
  150.       property ShowToolBar : Boolean read FShowToolBar write FShowtoolBar default false;
  151.       property MaximumHistoryItems : Integer read MaxHistory write MaxHistory default 255;
  152.       property WrapHyperTextDisplayLines : Boolean read WrapDisplay write WrapDisplay;
  153.       property OnAssertShowCoolLine : TStringEvent read FOnAssertShowCoolLine
  154.                 write FOnAssertShowCoolLine;
  155.       property OnAssertShowHotLine : TStringEvent read FOnAssertShowHotLine
  156.                 write FOnAssertShowHotLine;
  157.       property OnAssertShowCoolImage : TImageEvent read FOnAssertShowCoolImage
  158.                 write FOnAssertShowCoolImage;
  159.       property OnAssertShowHotImage : TImageEvent read FOnAssertShowHotImage
  160.                 write FOnAssertShowHotImage;
  161.       property OnHandleShowCoolLine : TStringEvent read FOnHandleShowCoolLine
  162.                 write FOnHandleShowCoolLine;
  163.       property OnHandleShowHotLine : TStringEvent read FOnHandleShowHotLine
  164.                 write FOnHandleShowHotLine;
  165.       property OnHandleShowCoolImage : TImageEvent read FOnHandleShowCoolImage
  166.                 write FOnHandleShowCoolImage;
  167.       property OnHandleShowHotImage : TImageEvent read FOnHandleShowHotImage
  168.                 write FOnHandleShowHotImage;
  169.       property OnCurrentCoolClick : TMouseEvent read FOnCurrentCoolClick
  170.                 write FOnCurrentCoolClick;
  171.       property OnCurrentHotClick : TMouseEvent read FOnCurrentHotClick
  172.                 write FOnCurrentHotClick;
  173.       property OnAssertLocalJump : TStringEvent read FOnAssertlocalJump
  174.                 write FOnAssertLocalJump;
  175.       property OnHandleLocalJump : TStringEvent read FOnHandleLocalJump
  176.                 write FOnHandleLocalJump;
  177.       property OnAssertPlayWaveFile : TStringEvent read FOnAssertPlayWaveFile
  178.                 write FOnAssertPlayWaveFile;
  179.       property OnAssertPlayAVIFile : TStringEvent read FOnAssertPlayAVIFile
  180.                 write FOnAssertPlayAVIFile;
  181.       property OnAssertPlayMidiFile : TStringEvent read FOnAssertPlayMidiFile
  182.                 write FOnAssertPlayMidiFile;
  183.       property OnAssertNewHTFile : TStringEvent read FOnAssertNewHTFile
  184.                 write FOnAssertnewHTFile;
  185.       property OnHandlePlayWaveFile : TStringEvent read FOnHandlePlayWaveFile
  186.                 write FOnHandlePlayWaveFile;
  187.       property OnHandlePlayAVIFile: TStringEvent read FOnHandlePlayAVIFIle
  188.                 write FOnHandlePlayAVIFile;
  189.       property OnHandlePlayMidiFile: TStringEvent read FOnHandlePlayMidiFile
  190.                 write FOnHandlePlayMidiFile;
  191.       property OnHandleNewHTFile : TStringEvent read FOnHandleNewHTFile
  192.                 write FOnHandleNewHTFile;
  193.   end;
  194.  
  195.  
  196. <IMG "WAVELINE.BMP">
  197.  
  198. <A HREF="DEMO1.DHT">Click here</A> to return to the main demo file.
  199.  
  200.